home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / pd_atnet.scr < prev    next >
Encoding:
Text File  |  1996-10-12  |  4.6 KB  |  220 lines
  1. #menulib
  2.  
  3. Submenu ATARINET
  4. Entry /Co-Sysop ATARI.ADM[1]ADM
  5. Entry ATARI.BBS[2]BBS
  6. Entry ATARI.4SALE[3]4SALE
  7. Entry ATARI.ATARI[4]ATARI
  8. Entry ATARI.MISC[5]MISC
  9. Entry ATARI.PROG[6]PROG
  10. Entry ATARI.SUP[7]SUP
  11.  
  12. Submenu ATARI.ADM
  13. Entry [1]ECHO
  14. Entry [2]TEST
  15. Entry [3]FDS
  16.  
  17. Submenu ATARI.BBS
  18. Entry [1]MISC
  19. Entry [2]NETWORKING
  20.  
  21. Submenu ATARI.4SALE
  22. Entry [1]COMMERCIAL
  23. Entry [2]PERSONAL
  24.  
  25. Submenu ATARI.ATARI
  26. Entry [1]8-BITS
  27. Entry [2]DTP
  28. Entry [3]EXPLORER
  29. Entry [4]FALCON
  30. Entry [5]FAX
  31. Entry [6]GAMES
  32. Entry [7]GRAPHICS
  33. Entry [8]MISC
  34. Entry [9]SOUND
  35. Entry [0]TECH 
  36. Entry [A]TELECOM 
  37.  
  38. Submenu ATARI.MISC
  39. Entry [1]MISC
  40. Entry [2]FILEFIND 
  41.  
  42. Submenu ATARI.PROG
  43. Entry [1]C
  44. Entry [2]GFA
  45. Entry [3]MISC
  46.  
  47. Submenu ATARI.SUP
  48. Entry [1]RATSOFT
  49. Entry [2]JETMAIL
  50. Entry [3]SEMPER
  51.      
  52. #endlib
  53.  
  54. :MSG_atarinet
  55. DrawMenu ATARINET        Gosub draw_ascii_msg           
  56. DoMenu ATARINET
  57.   SelectChoice
  58.     Case 1  Gosub MSG_atarinet_adm        Break
  59.     Case 2  Gosub MSG_atarinet_bbs        Break
  60.     Case 3  Gosub MSG_atarinet_4sale    Break
  61.     Case 4  Gosub MSG_atarinet_atari    Break
  62.     Case 5  Gosub MSG_atarinet_misc        Break
  63.     Case 6  Gosub MSG_atarinet_prog        Break
  64.     Case 7  Gosub MSG_atarinet_sup        Break
  65.   EndSelect
  66. EnddoChoice MenuBarKeys
  67.  
  68. /* Remove the submenu */
  69. IfChoice CursLeft
  70.     RemoveMenu ATARINET
  71.     ClrChoice               
  72. Endif
  73. Return
  74.  
  75. :MSG_atarinet_adm
  76. DrawMenu ATARI.ADM        Gosub draw_ascii_msg           
  77. DoMenu ATARI.ADM
  78.   SelectChoice
  79.     Case 1    Setmsgarea A.ADM.ECHO
  80.     Case 2    Setmsgarea A.ADM.TEST
  81.     Case 3    Setmsgarea A.ADM.FDS
  82.     Common  Readmessages
  83.             Gosub draw_bbsinfo
  84.             DrawMenu Msgbase
  85.   EndSelect
  86. EnddoChoice MenuBarKeys
  87.  
  88. /* Remove the submenu */
  89. IfChoice CursLeft
  90.     RemoveMenu ATARI.ADM
  91.     ClrChoice               
  92. Endif
  93. Return
  94.  
  95. :MSG_atarinet_bbs
  96. DrawMenu ATARI.BBS        Gosub draw_ascii_msg           
  97. DoMenu ATARI.BBS
  98.   SelectChoice
  99.       Case 1    Setmsgarea A.BBS.MISC
  100.       Case 2  Setmsgarea A.BBS.NETWORKING
  101.     Common  Readmessages
  102.             Gosub draw_bbsinfo
  103.             DrawMenu Msgbase
  104.   EndSelect
  105. EnddoChoice MenuBarKeys
  106.  
  107. /* Remove the submenu */
  108. IfChoice CursLeft
  109.     RemoveMenu ATARI.BBS
  110.     ClrChoice               
  111. Endif
  112. Return
  113.  
  114. :MSG_atarinet_4sale
  115. DrawMenu ATARI.4SALE        Gosub draw_ascii_msg           
  116. DoMenu ATARI.4SALE
  117.   SelectChoice
  118.       Case 1    Setmsgarea A.4SALE.COMMERCIAL
  119.       Case 2  Setmsgarea A.4SALE.PERSONAL
  120.     Common  Readmessages
  121.             Gosub draw_bbsinfo
  122.             DrawMenu Msgbase
  123.  EndSelect
  124. EnddoChoice MenuBarKeys
  125.  
  126. /* Remove the submenu */
  127. IfChoice CursLeft
  128.     RemoveMenu ATARI.4SALE
  129.     ClrChoice               
  130. Endif
  131. Return
  132.  
  133. :MSG_atarinet_atari
  134. DrawMenu ATARI.ATARI        Gosub draw_ascii_msg           
  135. DoMenu ATARI.ATARI
  136.   SelectChoice
  137.       Case 1    Setmsgarea A.ATARI.8-BITS
  138.       Case 2    Setmsgarea A.ATARI.DTP
  139.       Case 3    Setmsgarea A.ATARI.EXPLORER
  140.       Case 4    Setmsgarea A.ATARI.FALCON
  141.       Case 5    Setmsgarea A.ATARI.FAX
  142.       Case 6    Setmsgarea A.ATARI.GAMES
  143.       Case 7    Setmsgarea A.ATARI.GRAPHICS
  144.       Case 8    Setmsgarea A.ATARI
  145.       Case 9    Setmsgarea A.ATARI.SOUND
  146.       Case 0    Setmsgarea A.ATARI.TECH
  147.       Case A    Setmsgarea A.ATARI.TELECOM
  148.     Common  Readmessages
  149.             Gosub draw_bbsinfo
  150.             DrawMenu Msgbase
  151.   EndSelect
  152. EnddoChoice MenuBarKeys
  153.  
  154. /* Remove the submenu */
  155. IfChoice CursLeft
  156.     RemoveMenu ATARI.ATARI
  157.     ClrChoice               
  158. Endif
  159. Return
  160.  
  161. :MSG_atarinet_misc
  162. DrawMenu ATARI.MISC        Gosub draw_ascii_msg           
  163. DoMenu ATARI.MISC
  164.   SelectChoice
  165.       Case 1    Setmsgarea A.MISC
  166.       Case 2    Setmsgarea A.MISC.FILEFIND
  167.     Common  Readmessages
  168.             Gosub draw_bbsinfo
  169.             DrawMenu Msgbase
  170.   EndSelect
  171. EnddoChoice MenuBarKeys
  172.  
  173. /* Remove the submenu */
  174. IfChoice CursLeft
  175.     RemoveMenu ATARI.MISC
  176.     ClrChoice               
  177. Endif
  178. Return
  179.  
  180. :MSG_atarinet_prog
  181. DrawMenu ATARI.PROG        Gosub draw_ascii_msg           
  182. DoMenu ATARI.PROG
  183.   SelectChoice
  184.     Case 1  Setmsgarea A.PROG.C
  185.     Case 2  Setmsgarea A.PROG.C
  186.     Case 3  Setmsgarea A.PROG
  187.     Common  Readmessages
  188.             Gosub draw_bbsinfo
  189.             DrawMenu Msgbase    
  190.   EndSelect
  191. EnddoChoice MenuBarKeys
  192.  
  193. /* Remove the submenu */
  194. IfChoice CursLeft
  195.     RemoveMenu ATARI.PROG
  196.     ClrChoice               
  197. Endif
  198. Return
  199.  
  200. :MSG_atarinet_sup
  201. DrawMenu ATARI.SUP        Gosub draw_ascii_msg           
  202. DoMenu ATARI.SUP
  203.   SelectChoice
  204.     Case 1  Setmsgarea A.SUP.RATSOFT
  205.     Case 2  Setmsgarea A.SUP.JETMAIL
  206.     Case 3  Setmsgarea A.SUP.SEMPER
  207.        Common  Readmessages
  208.             Gosub draw_bbsinfo
  209.             DrawMenu Msgbase    
  210.   EndSelect
  211. EnddoChoice MenuBarKeys
  212.  
  213. /* Remove the submenu */
  214. IfChoice CursLeft
  215.     RemoveMenu ATARI.SUP
  216.     ClrChoice               
  217. Endif
  218. Return
  219.  
  220.